home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / parse3.rexx < prev    next >
OS/2 REXX Batch file  |  1978-02-01  |  653b  |  38 lines
  1. /* GET INLINE FILENAME */
  2. call open(place, 'env:dirquery')
  3. wher = readln(place)
  4.  
  5. lng = LENGTH(wher)
  6. x = lng - 2
  7. dirC = SUBSTR( wher , 2 , x )
  8. xdir = SUBSTR( wher , 2 , x )
  9.  
  10. parse var xdir ':' temp
  11. if temp="" then temp=x
  12. do forever
  13. parse var temp dirj '/' temp
  14. if temp ="" then break
  15. end
  16. cap = '">'
  17. str1 = '<A HREF="'
  18. str2 = 'pics/'
  19. str3 = 'sounds/'
  20.  
  21. check1 = insert(xdir , 'test.html') 
  22. check2 = insert(check1 , 'test.html') 
  23. x = EXISTS(check1)
  24. IF x = 0 THEN DO
  25. check = 'NO'
  26. END
  27. IF x = 1 THEN DO
  28. check = 'YES'
  29. END
  30. ADDRESS 'AV.REXX'
  31. SETVAR fxdir dirj
  32. SETVAR INLN1 str1
  33. SETVAR endcap cap
  34. SETVAR pdir str2
  35. SETVAR sdir str3
  36. SETVAR D2 dirC
  37. SETVAR chk check
  38.